open Castling;;

module CharPG = ParserGenerator (CharToken);;
open CharPG;;

let rec test = lazy !! (
	selab >> selxy
) and selab = lazy !! (
	one_of ~name:"ab" [
		"a", element 'A';
		"b", element 'B'
	]
) and selxy = lazy !! (
	one_of ~name:"xy" [
		"x", element 'X';
		"y", element 'Y'
	]
);;

debug := true;;
runtime_debug := true;;
generate test;;
